home *** CD-ROM | disk | FTP | other *** search
- #include <dos/dos.h>
- #include <stdio.h>
- #include <string.h> /* SAS/C memcpy() */
-
- #if 0
- #include <proto/exec.h>
-
- asm("_cb: movel d0,sp@-; jbsr _put; addqw #4,sp; rts");
- static void cb(unsigned char chr);
- static void put(unsigned char chr)
- { putchar(chr?chr:'\n'); }
-
- #else
- #include <clib/exec_protos.h>
-
- static void cb(unsigned char chr)
- { putchar(chr?chr:'\n'); }
-
- #endif
-
- int main(void)
- {
- ULONG a[2]= { 2000000, 4000000 };
- UWORD b[2]= { 20000, 40000 };
- LONG c[2]= { -1000000, -2000000 };
- WORD d[2]= { -10000, -20000 };
-
- UBYTE *s="hello, world!";
- UBYTE p[]="\015hello, world!";
- UBYTE q[14+4];
-
- BPTR bs;
-
- bs=((ULONG)q+3)&~3;
- memcpy((char *)bs,p,14);
- bs=bs/4;
-
- RawDoFmt("%20.lu,", a, &cb, NULL);
- RawDoFmt("%020.lu,", a, &cb, NULL);
- RawDoFmt("%-20.lu,", a, &cb, NULL);
- RawDoFmt("%-020.lu,", a, &cb, NULL);
-
- RawDoFmt("%20.lx,", a, &cb, NULL);
- RawDoFmt("%020.lx,", a, &cb, NULL);
- RawDoFmt("%-20.lx,", a, &cb, NULL);
- RawDoFmt("%-020.lx,", a, &cb, NULL);
-
- RawDoFmt("%20.ld,", b, &cb, NULL);
- RawDoFmt("%020.ld,", b, &cb, NULL);
- RawDoFmt("%-20.ld,", b, &cb, NULL);
- RawDoFmt("%-020.ld,", b, &cb, NULL);
-
- RawDoFmt("%20.lx,", b, &cb, NULL);
- RawDoFmt("%020.lx,", b, &cb, NULL);
- RawDoFmt("%-20.lx,", b, &cb, NULL);
- RawDoFmt("%-020.lx,", b, &cb, NULL);
-
- RawDoFmt("%20.u,", c, &cb, NULL);
- RawDoFmt("%020.u,", c, &cb, NULL);
- RawDoFmt("%-20.u,", c, &cb, NULL);
- RawDoFmt("%-020.u,", c, &cb, NULL);
-
- RawDoFmt("%20.x,", c, &cb, NULL);
- RawDoFmt("%020.x,", c, &cb, NULL);
- RawDoFmt("%-20.x,", c, &cb, NULL);
- RawDoFmt("%-020.x,", c, &cb, NULL);
-
- RawDoFmt("%20.d,", d, &cb, NULL);
- RawDoFmt("%020.d,", d, &cb, NULL);
- RawDoFmt("%-20.d,", d, &cb, NULL);
- RawDoFmt("%-020.d,", d, &cb, NULL);
-
- RawDoFmt("%20.x,", d, &cb, NULL);
- RawDoFmt("%020.x,", d, &cb, NULL);
- RawDoFmt("%-20.x,", d, &cb, NULL);
- RawDoFmt("%-020.x,", d, &cb, NULL);
-
- RawDoFmt("%20.s,", &s, &cb, NULL);
- RawDoFmt("%020.s,", &s, &cb, NULL);
- RawDoFmt("%-20.s,", &s, &cb, NULL);
- RawDoFmt("%-020.s,", &s, &cb, NULL);
-
- RawDoFmt("%.5s,", &s, &cb, NULL);
- RawDoFmt("%0.5s,", &s, &cb, NULL);
- RawDoFmt("%-.5s,", &s, &cb, NULL);
- RawDoFmt("%-0.5s,", &s, &cb, NULL);
-
- RawDoFmt("%20.b,", &bs, &cb, NULL);
- RawDoFmt("%020.b,", &bs, &cb, NULL);
- RawDoFmt("%-20.b,", &bs, &cb, NULL);
- RawDoFmt("%-020.b,", &bs, &cb, NULL);
-
- RawDoFmt("%.5b,", &bs, &cb, NULL);
- RawDoFmt("%0.5b,", &bs, &cb, NULL);
- RawDoFmt("%-.5b,", &bs, &cb, NULL);
- RawDoFmt("%-0.5b,", &bs, &cb, NULL);
-
- RawDoFmt("%20.lc,", &a, &cb, NULL);
- RawDoFmt("%020.lc,", &a, &cb, NULL);
- RawDoFmt("%-20.lc,", &a, &cb, NULL);
- RawDoFmt("%-020.lc,", &a, &cb, NULL);
-
- RawDoFmt("%20.c,", &b, &cb, NULL);
- RawDoFmt("%020.c,", &b, &cb, NULL);
- RawDoFmt("%-20.c,", &b, &cb, NULL);
- RawDoFmt("%-020.c,", &b, &cb, NULL);
-
- return 0;
- }
-